﻿Imports System.Data
Imports System.Data.SqlClient
Public Class frmAgregarUsuario

    Private Sub btnCerrar_Click(sender As Object, e As EventArgs) Handles btnCerrar.Click
        Me.Close()
    End Sub

    Private Sub frmAgregarUsuario_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'EsperanzaDBDataSet.SP_ListarUsuario' Puede moverla o quitarla según sea necesario.
        Me.SP_ListarUsuarioTableAdapter.Fill(Me.EsperanzaDBDataSet.SP_ListarUsuario)
        'TODO: esta línea de código carga datos en la tabla 'EsperanzaDBDataSet.SP_ListarEmpleado' Puede moverla o quitarla según sea necesario.
        Me.SP_ListarEmpleadoTableAdapter.Fill(Me.EsperanzaDBDataSet.SP_ListarEmpleado)

    End Sub

    Private Sub btnAgregar_Click(sender As Object, e As EventArgs) Handles btnAgregar.Click
        AgregarUsuario()
        Me.Close()
    End Sub

    Private Sub AgregarUsuario()
        Try
            Me.SP_ListarUsuarioTableAdapter.SP_InsertarUsuario(cboBuscarEmpleado.EditValue, txtUsuario.Text, txtContraseña.Text)
            MessageBox.Show("Ha agregado un nuevo usuario al sistema", varTitulo, MessageBoxButtons.OK, MessageBoxIcon.Information)

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
End Class